metrics Module



Variables

Type Visibility Attributes Name Initial
real(kind=wp), public :: g11

common/metrika/g11,g12,g22,g33,gg,g,si,co

real(kind=wp), public :: g12

common/metrika/g11,g12,g22,g33,gg,g,si,co

real(kind=wp), public :: g22

common/metrika/g11,g12,g22,g33,gg,g,si,co

real(kind=wp), public :: g33

common/metrika/g11,g12,g22,g33,gg,g,si,co

real(kind=wp), public :: gg

common/metrika/g11,g12,g22,g33,gg,g,si,co

real(kind=wp), public :: g

common/metrika/g11,g12,g22,g33,gg,g,si,co

real(kind=wp), public :: si

common/metrika/g11,g12,g22,g33,gg,g,si,co

real(kind=wp), public :: co

common/metrika/g11,g12,g22,g33,gg,g,si,co

real(kind=wp), public :: g2v1
real(kind=wp), public :: g2jq
real(kind=wp), public :: g3v
real(kind=wp), public :: b
real(kind=wp), public :: bp
real(kind=wp), public :: bt
real(kind=wp), public :: x0
real(kind=wp), public :: x0t
real(kind=wp), public :: xj
real(kind=wp), public :: xjt
real(kind=wp), public :: dxdr
real(kind=wp), public :: dxdt
real(kind=wp), public :: dzdr
real(kind=wp), public :: dzdt
real(kind=wp), public :: dxdrdt
real(kind=wp), public :: dxdtdt
real(kind=wp), public :: dzdrdt
real(kind=wp), public :: dzdtdt
real(kind=wp), public :: bat
real(kind=wp), public :: bpt
real(kind=wp), public :: btt
real(kind=wp), public :: g2jqt
real(kind=wp), public :: g11t
real(kind=wp), public :: g22t
real(kind=wp), public :: g33t
real(kind=wp), public :: g12t
real(kind=wp), public :: gprt

Subroutines

public subroutine calculate_metrics(pa, ptet)

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: pa
real(kind=wp), intent(in) :: ptet